100 REM 1000 MILES F.H. COVITZ
110 POKE 53272,23
120 PRINT"[147]INSTRUCTIONS FOR 1000 MILES
130 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
140 PRINT"  '1000 MILES' [201][211][160][193][160][214][197][210][211][201][207][206][160][207][198][160][212][200][197]
150 [153]"ASC(null)VAL(null)LENLEFT$CLOSELENATN(null)STR$CLOSECHR$ATN(null)VAL 'MILLE BORNES'. (null)LEFT$VAL
160 PRINT"[207][194][202][197][195][212][160][207][198][160][212][200][197][160][199][193][205][197][160][201][211][160][212][207][160][210][197][193][195][200][160]1000
170 [153]"(null)RIGHT$(null)VAL(null)CLOSEATN(null)STR$CLOSE(null)LEN(null)(null)VALCLOSEATN(null)CLOSE(null)ATN(null)(null)CLOSE(null)(null)RIGHT$(null)(null)(null)CLOSEATN(null)
180 PRINT"[208][207][211][211][201][194][204][197][160][201][206][160][197][193][195][200][160][207][198][160]5 [210][207][213][206][196][211].
190 [153]"   VALATNLENLEFT$ (null)(null)(null)(null)STR$ (null)(null)ATN(null)(null)(null)CLOSE(null)RIGHT$(null)LEFT$CLOSEATNCLOSE(null)LEFT$(null)ASCASC(null)VAL (null)ASC
200 PRINT"[212][200][197][160][196][197][195][203][160][193][206][196][160][197][193][195][200][160][208][204][193][217][197][210][160][201][211][160][196][197][193][204][212] 6
210 [153]"LENATN(null)STR$(null). (null)(null)(null)CLOSE(null)(null)ATN(null)(null)CLOSE(null)LEFT$VALCLOSECHR$ATN(null)VALCLOSEPEEK(null) STR$(null)ATN(null)RIGHT$(null)CHR$ ATN
220 PRINT"[195][193][210][196][160][193][206][196][160][197][201][212][200][197][210] PLAY[201][206][199][160][207][210][160]DISCARD[201][206][199]
230 [153]"ATNCLOSELENATN(null)STR$. (null)(null)ATN(null)CLOSEATN(null)(null)VAL(null)(null)ATN(null)VAL(null)CLOSEPEEKVAL(null)(null)VALVAL(null)CLOSE(null)LEFT$VAL (null)(null)(null)
240 PRINT"[207][208][208][207][206][197][206][212][211][160][213][206][212][201][204][160][207][206][197][160][208][204][193][217][197][210][160][210][197][193][195][200][197][211][160]1000
250 [153]"(null)RIGHT$(null)VAL(null)CLOSE(null)(null)CLOSE(null)(null)(null)RIGHT$(null)CLOSE(null)(null)CLOSELENATN(null)STR$(null)CLOSE(null)VAL(null)ATNRIGHT$(null). (null)(null)(null)VAL(null)
260 PRINT"[207][198][160][208][204][193][217][160][198][207][204][204][207][215].":GOSUB960
270 PRINT"   [212][200][197][160][212][217][208][197][211][160][193][206][196][160][206][213][205][194][197][210][160][207][198][160][197][193][195][200][160][195][193][210][196]
280 [153]"RIGHT$(null)CLOSE(null)LEFT$VALCLOSESTR$VALLEN(null)CLOSEATN(null)VAL
290 PRINT"HAZARDS:  OUT OF GAS      [3]
300 [153]"          ACCIDENT        [3]
310 PRINT"          FLAT TIRE       [3]
320 [153]"          SPEED LIMIT(50) [4]
330 PRINT"          STOP            [5]
340 [153]"REMEDIES: GAS             [6]
350 PRINT"          REPAIRS         [6]
360 [153]"          SPARE TIRE      [6]
370 PRINT"          END OF LIMIT    [6]
380 [153]"          ROLL            [14]
390 PRINT"SAFETIES: EXTRA TANK      [1]
400 [153]"          DRIVING ACE     [1]
410 PRINT"          PERMANENT TIRE  [1]
420 [153]"          RIGHT-OF-WAY    [1]
430 PRINT"DISTANCE: 25[10]  50[10]  75[10]                 100[12] 200[4]
440 [141]960
450 [153]"    (null)LEFT$VALCLOSE(null)PEEKMID$VALLEN(null)CLOSERIGHT$(null)CLOSE(null)(null)CLOSE(null)(null)ATN(null)CLOSEDISTANCE
460 PRINT"[195][193][210][196][211][160][215][200][197][206][160][208][207][211][211][201][194][204][197][160][213][206][212][201][204][160][217][207][213][210][160][212][207][212][193][204]
470 [153]"STR$RIGHT$(null)(null)ATN(null)LENVALCLOSERIGHT$(null)CLOSEEXACTLY 1000 (null)RIGHT$(null)VAL(null).
480 PRINT"   [217][207][213][160][205][193][217][160][208][204][193][217][160]DISTANCE[160][195][193][210][196][211][160][207][206][204][217][160][215][200][197][206]
490 [153]"ON(null)(null)(null)CLOSELEFT$ATN(null)VALCLOSE(null)(null)VAL(null)RIGHT$(null)(null)(null)(null)(null)CLOSE(null)(null)ATN(null)VALSTR$CLOSEATNCLOSEROLL LENATN(null)STR$.
500 PRINT"A SPEED LIMIT(50) [200][193][218][193][210][196][160][208][210][197][214][197][206][212][211][160][217][207][213]
510 [153]"ASC(null)(null)(null)CLOSE(null)(null)ATN(null)RIGHT$(null)CHR$CLOSEATN(null)(null)CLOSEDISTANCE LENATN(null)STR$ CHR$(null)VALATN(null)VAL(null)
520 PRINT"[212][200][193][206][160]50 [205][201][204][197][211], [193][206][196][160][201][211][160][195][213][210][197][196][160][194][217][160][208][204][193][217][201][206][199]
530 [153]"ATN(null)CLOSEEND OF LIMIT LENATN(null)STR$. (null)(null)(null)CLOSEATN(null)VALCLOSE(null)(null)(null)(null)(null)VALSTR$
540 PRINT"[195][207][205][208][204][197][212][204][217][160][194][217][160][193][206][217][160][207][212][200][197][210][160][200][193][218][193][210][196] [195][193][210][196] [198][207][210]
550 [153]"(null)LEFT$RIGHT$LENLEFT$CLOSE(null)(null)(null)CLOSESTR$(null)CLOSE(null)(null)(null)CLOSELEFT$ATN(null)VALCLOSE(null)LEFT$VALCLOSELEN(null)(null)(null)VAL(null)(null)(null)(null)STR$RIGHT$(null)CHR$
560 PRINT"SAFETY. [193] HAZARD [201][211][160][195][213][210][197][196][160][194][217][160][208][204][193][217][201][206][199][160][212][200][197]
570 [153]"ONLEN(null)(null)(null)VAL(null)(null)(null)(null)STR$RIGHT$(null)CHR$CLOSEREMEDY LENATN(null)STR$, PEEK(null)(null)CLOSE(null)(null)(null) (null)(null)(null)(null)
580 PRINT"[211][212][201][204][204][160][208][204][193][217][160][193][160]ROLL [195][193][210][196][160][194][197][198][207][210][197][160][217][207][213][160][195][193][206]
590 [153]"(null)(null)(null)LENVALSTR$VAL. (null)(null)(null)CLOSE(null)ATN(null)CLOSE(null)(null)ATN(null)CLOSEATNCLOSEHAZARD ATNCHR$ATNRIGHT$(null)(null)(null)
600 PRINT"[217][207][213][210][160][207][208][208][207][206][197][206][212][160][207][206][204][217][160][201][198][160][200][197][160][200][193][211][160][193][160]ROLL [195][193][210][196]
610 [153]"ONVAL(null)(null)(null)(null)VALSTR$, ATN(null)STR$CLOSELEFT$VALCLOSESTR$(null)VAL(null)CLOSE(null)(null)(null)CLOSELEFT$ATN(null)VALCLOSEATN SAFETY
620 PRINT"[198][207][210][160][212][200][197][160]HAZARD [207][206][160][212][200][197][160][194][207][193][210][196].":GOSUB960
630 PRINT"    [193] SPEED LIMIT(50) [205][193][217][160][194][197][160][208][204][193][217][197][196] [193][206][217][160]
640 [153]"ON(null)RIGHT$(null)VAL,(null)(null)(null)VAL(null)(null)CLOSE(null)(null)(null)(null)(null)VAL(null)(null)CLOSEATN(null)(null)VALATNSTR$(null)CLOSELEFT$ATN(null)CLOSEATNCLOSE(null)(null)VALVALSTR$
650 PRINT"[145][204][201][205][201][212]. [193][204][211][207], [193] SAFETY [195][193][210][196][160][205][193][217][160][194][197][160][208][204][193][217][197][196]
660 [153]"ONATN(null)(null)CLOSE(null)RIGHT$(null)VAL, PEEK(null)(null)CLOSERIGHT$ASCCLOSERIGHT$(null)CLOSERIGHT$(null)CLOSE(null)(null)ATN(null)VALSTR$CLOSE(null)LEFT$VAL(null)CLOSE(null)(null)(null)
670 PRINT"[200][193][214][197][160][212][200][197][160][195][207][210][210][197][211][208][207][206][196][201][206][199][160]HAZARD, [217][207][213][160][211][195][207][210][197]
680 [153]"ONATN 'COUP FOUREE' (ASC(null)VAL(null)LENLEFT$CLOSE(null)VAL(null)(null)CLOSEASC(null)(null)CLOSEATN
690 PRINT"[211][201][205][213][204][212][193][206][197][207][213][211][160][207][198][198][197][206][211][197][160][193][206][196][160][196][197][198][197][206][211][197]). [197][193][195][200]
700 [153]"COUP FOUREE (null)LEN(null)(null)VAL(null)CLOSEPEEK(null)(null)(null)(null)CLOSE(null)(null)RIGHT$(null)(null)(null). (null)(null)(null)
710 PRINT"[205][193][217][160][206][207][212][160][208][204][193][217][160][193][160]HAZARD [207][206][160][217][207][213][210][160][207][208][208][207][206][197][206][212]
720 [153]"RIGHT$ASCCLOSELEFT$VALCLOSELEFT$ATN(null)CLOSE(null)LEFT$VALCLOSELEN(null)(null)(null)VAL(null)(null)(null)(null)STR$RIGHT$(null)CHR$ SAFETY.
730 PRINT"  NOTE - [212][200][197] RIGHT-OF-WAY [211][193][198][197][212][217] [195][213][210][197][211]
740 [153]"PEEK(null)(null)LEFT$CLOSESTOP ATN(null)STR$CLOSESPEED LIMIT(50) LEFT$ATN(null)ATN(null)STR$(null),
750 PRINT"[193][206][196][160][193][204][204][207][215][211][160][217][207][213][160][212][207][160][208][204][193][217][160]DISTANCE [195][193][210][196][211]
760 [153]"VAL(null)VAL(null)CLOSERIGHT$ASCCLOSE(null)(null)(null)CLOSESTR$(null)(null)'(null)CLOSELEFT$ATN(null)VALCLOSEATNCLOSEROLL LENATN(null)STR$ VAL(null)-
770 PRINT"[208][207][211][197][196].[212][200][197][160][210][207][213][206][196][160][201][211][160][207][214][197][210][160][215][200][197][206][160][197][201][212][200][197][210]
780 [153]"(null)(null)ATN(null)VAL(null)CLOSE(null)VALATNLENLEFT$VAL(null)CLOSEVAL(null)ATNLEN(null)(null)(null)CLOSE1000CLOSE(null)RIGHT$(null)VAL(null) (null)(null)CLOSE
790 PRINT"[215][200][197][206][160][206][207][160][195][193][210][196][211][160][210][197][205][193][201][206][160][212][207][160][194][197][160][208][204][193][217][197][196].
800 [153]"(null)LEFT$VALCLOSECHR$ATN(null)VAL RIGHT$(null)CLOSE(null)(null)VAL(null)CLOSEATNASC(null)VAL(null)CLOSE5 (null)(null)(null)(null)STR$(null).":[141]960
810 [153]"  (null)LEN(null)(null)RIGHT$(null)CHR$CLOSEASC(null)(null) VALATNLENLEFT$CLOSE(null)(null)(null)(null)STR$CLOSERIGHT$(null)CLOSEATN(null)CLOSEASC(null)(null)(null)(null)(null)(null):
820 PRINT" BONUS FOR:        POINTS
830 [153]" TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(         TAB(TAB(TAB(TAB(TAB(TAB(
840 PRINT"[196][201][211][212][193][206][195][197]           [212][207][212][193][204] [196][201][211][212][193][206][195][197]
850 [153]"1(null)(null) (null)(null)CLOSE(null)VALATNLENLEFT$CLOSE1000  400
860 PRINT"[197][193][195][200] COUP FOUREE   300
870 [153]"VALATNLENLEFT$ SAFETY (null)(null)ATN(null)VALSTR$ 100
880 PRINT"[211][200][213][212][160][207][213][212][160][207][208][208][207][206][197][206][212]  500
890 [153]"  (null)LEFT$VAL (null)(null)(null)CHR$(null)ATN(null)CLOSELENLEFT$VALLEN(null)(null)CLOSEASC(null)(null)CLOSERIGHT$(null)(null)VALCHR$ATN(null)CLOSE(null)(null)(null)VAL(null)
900 PRINT"[193][206][196][160][199][201][214][197][211][160][208][210][207][205][208][212][201][206][199][160][205][197][211][211][193][199][197][211].
910 [153]"ASC(null)(null)CLOSELEN(null)(null)(null)VAL(null)RIGHT$VAL(null)LENVAL, (null)LEFT$VALCLOSESPACE (null)VAL(null) (null)VAL(null)(null)VAL(null)
920 PRINT"[212][207] [196][201][211][195][193][210][196][160][217][207][213][210] [212][207][208][160][195][193][210][196].
930 [133]"STR$(null)CLOSE(null)(null)(null)CLOSE(null)ATN(null)(null)CLOSE(null)(null)CLOSE(null)VAL(null)RIGHT$VAL(null)CLOSE(null)LEFT$VALCLOSERIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)?WAIT  Y (null)(null) N  SINCMDCMDCMD";A$
940 [139] A$[178]"Y"[167]110
953 [131]19,13,32,32,82,85,78,13
957 [128]
960 [153]"(null)(null)(null)LEFT$CLOSEATN(null)(null)CLOSE(null)VAL(null)CLOSE(null)(null)CLOSELEN(null)(null)(null)RIGHT$(null)(null)VAL
970 GETA$:IFA$>""GOTO970
980 GET A$:IF A$=""THEN980
990 PRINT"[147]";:RETURN